Private Sub cmdAdd_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles cmdAdd.Click
        rstProducts.AddNew()
        Call DisplayFields()
        rstProducts.Update()
End Sub
